define i:integer;
define j:integer;
define tmp:byte;
define Massiv:byte[5];

begin
 for i=1 to 5 do
  begin
   PrintS("‚¢¥¤¨â¥ Œ[")
   PrintI(i)
   PrintS("]")
   Massiv[i]=con
   PrintS(""L)
  end
 i=1
 While i<=5 do
  begin
   j=i+1
   While j<=5 do
    begin
     if Massiv[j]<Massiv[i] then
      begin
       tmp=Massiv[i]
       Massiv[i]=Massiv[j]
       Massiv[j]=tmp
      end
     j=j+1
    end
   i=i+1
  end
 for i=1 to 5 do
  begin
   PrintS("Œ[")
   PrintI(i)
   PrintS("]")
   PrintI(Massiv[i])
   PrintS(""L)
  end
end.